8 lines
212 B
Plaintext
8 lines
212 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
|