ligo/test/contracts/hardlimit.tz

8 lines
239 B
Plaintext
Raw Normal View History

2017-01-11 19:15:38 +04:00
parameter unit
2016-09-08 21:13:10 +04:00
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 } {} ;
2017-01-11 19:15:38 +04:00
UNIT ; PAIR }
return unit
2016-09-08 21:13:10 +04:00
storage uint32