ligo/test/contracts/hardlimit.tz

8 lines
206 B
Plaintext

parameter unit
code
{ # This contract stops accepting transactions after N incoming transactions
CDR ; DUP ; PUSH int 0 ; CMPLT; IF {PUSH int -1 ; ADD} {FAIL};
UNIT; PAIR}
return unit
storage int