mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
17 lines
210 B
Plaintext
17 lines
210 B
Plaintext
|
-- case stack height mismatch
|
||
|
|
|
||
|
|
inductive list {
|
||
|
|
nil : list;
|
||
|
|
cons : * -> list -> list;
|
||
|
|
}
|
||
|
|
|
||
|
|
function main() {
|
||
|
|
alloc nil;
|
||
|
|
case list {
|
||
|
|
nil: { push 1; push 2; }
|
||
|
|
cons: { push 1; }
|
||
|
|
};
|
||
|
|
pop;
|
||
|
|
ret;
|
||
|
|
}
|