112 lines
2.6 KiB
JSON
112 lines
2.6 KiB
JSON
{
|
|
"schema": "ailang/v0",
|
|
"name": "test_mono_recursive_fn_bug",
|
|
"imports": [],
|
|
"defs": [
|
|
{
|
|
"kind": "class",
|
|
"name": "Foo",
|
|
"param": "a",
|
|
"methods": [
|
|
{
|
|
"name": "foo",
|
|
"type": {
|
|
"k": "fn",
|
|
"params": [{ "k": "var", "name": "a" }],
|
|
"ret": { "k": "con", "name": "Int" },
|
|
"effects": []
|
|
}
|
|
}
|
|
]
|
|
},
|
|
{
|
|
"kind": "instance",
|
|
"class": "Foo",
|
|
"type": { "k": "con", "name": "Int" },
|
|
"methods": [
|
|
{
|
|
"name": "foo",
|
|
"body": {
|
|
"t": "lam",
|
|
"params": ["x"],
|
|
"paramTypes": [{ "k": "var", "name": "a" }],
|
|
"retType": { "k": "con", "name": "Int" },
|
|
"body": { "t": "var", "name": "x" }
|
|
}
|
|
}
|
|
]
|
|
},
|
|
{
|
|
"kind": "fn",
|
|
"name": "loop",
|
|
"type": {
|
|
"k": "fn",
|
|
"params": [{ "k": "con", "name": "Int" }, { "k": "con", "name": "Int" }],
|
|
"ret": { "k": "con", "name": "Int" },
|
|
"effects": []
|
|
},
|
|
"params": ["acc", "i"],
|
|
"body": {
|
|
"t": "if",
|
|
"cond": {
|
|
"t": "app",
|
|
"fn": { "t": "var", "name": "==" },
|
|
"args": [
|
|
{ "t": "var", "name": "i" },
|
|
{ "t": "lit", "lit": { "kind": "int", "value": 0 } }
|
|
]
|
|
},
|
|
"then": { "t": "var", "name": "acc" },
|
|
"else": {
|
|
"t": "app",
|
|
"tail": true,
|
|
"fn": { "t": "var", "name": "loop" },
|
|
"args": [
|
|
{
|
|
"t": "app",
|
|
"fn": { "t": "var", "name": "+" },
|
|
"args": [
|
|
{ "t": "var", "name": "acc" },
|
|
{ "t": "var", "name": "i" }
|
|
]
|
|
},
|
|
{
|
|
"t": "app",
|
|
"fn": { "t": "var", "name": "-" },
|
|
"args": [
|
|
{ "t": "var", "name": "i" },
|
|
{ "t": "lit", "lit": { "kind": "int", "value": 1 } }
|
|
]
|
|
}
|
|
]
|
|
}
|
|
}
|
|
},
|
|
{
|
|
"kind": "fn",
|
|
"name": "main",
|
|
"type": {
|
|
"k": "fn",
|
|
"params": [],
|
|
"ret": { "k": "con", "name": "Unit" },
|
|
"effects": ["IO"]
|
|
},
|
|
"params": [],
|
|
"body": {
|
|
"t": "do",
|
|
"op": "io/print_int",
|
|
"args": [
|
|
{
|
|
"t": "app",
|
|
"fn": { "t": "var", "name": "loop" },
|
|
"args": [
|
|
{ "t": "lit", "lit": { "kind": "int", "value": 0 } },
|
|
{ "t": "lit", "lit": { "kind": "int", "value": 5 } }
|
|
]
|
|
}
|
|
]
|
|
}
|
|
}
|
|
]
|
|
}
|