ligo/test/contracts/hardlimit.tz

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
Michelson: new parser and macro expander. 2017-06-14 23:35:24 +02:00			`parameter unit ;`
First public release 2016-09-08 19:13:10 +02:00			`code`
Michelson: updates test suite to use `int` and `nat` 2017-07-18 17:38:20 +02:00			`{ # This contract stops accepting transactions after N incoming transactions`
			`CDR ; DUP ; PUSH int 0 ; CMPLT; IF {PUSH int -1 ; ADD} {FAIL};`
Michelson: new parser and macro expander. 2017-06-14 23:35:24 +02:00			`UNIT; PAIR} ;`
			`return unit ;`
Michelson: updates test suite to use `int` and `nat` 2017-07-18 17:38:20 +02:00			`storage int`