ligo/test/contracts/hardlimit.tz
2017-07-24 20:29:12 +02:00

8 lines
239 B
Plaintext

parameter unit
code
{ # This contract stop to accept transactions after N incoming transactions
CDR ; PUSH uint32 1 ; SWAP ; SUB ;
DUP ; PUSH uint32 0 ; COMPARE ; EQ ; IF { FAIL } {} ;
UNIT ; PAIR }
return unit
storage uint32