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-15 01:35:24 +04:00			`parameter unit ;`
First public release 2016-09-08 21:13:10 +04:00			`code`
Michelson: updates test suite to use `int` and `nat` 2017-07-18 19:38:20 +04: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-15 01:35:24 +04:00			`UNIT; PAIR} ;`
			`return unit ;`
Michelson: updates test suite to use `int` and `nat` 2017-07-18 19:38:20 +04:00			`storage int`