mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
20 lines
202 B
Plaintext
20 lines
202 B
Plaintext
-- self-application
|
|
|
|
function sapp(* -> *) {
|
|
push arg[0];
|
|
push $;
|
|
tcall $ 1;
|
|
}
|
|
|
|
function id(*) {
|
|
push arg[0];
|
|
ret;
|
|
}
|
|
|
|
function main() {
|
|
push 7;
|
|
calloc id 0;
|
|
calloc sapp 0;
|
|
tccall 2;
|
|
}
|