Kindelia/Kind2
1
1
Fork 0
mirror of https://github.com/Kindelia/Kind2.git synced 2024-09-11 07:15:45 +03:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/uwu-tech/Kind

Browse Source
This commit is contained in:
rheidner 2021-10-04 15:04:57 -03:00
commit 131484e8f6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
base/Kind/Comp/Prim.kind
View File

@ -124,8 +124,8 @@ Kind.Comp.Prim.elim(lang: Kind.Comp.Language, term: Kind.Comp, depth: Nat, defs:
let args = for i from 0 to lams_len: args ++ [Kind.Comp.var("c"|Nat.show(i))]
let self = "self" | Nat.show(depth)
def build_cse = (item)
{cse, arg} = item
{name, flds} = cse
let {cse, arg} = item
let {name, flds} = cse
let flds_len = List.length!(flds)
let let_args_n = List.reverse!(List.seq(flds_len))

2
base/Kind/Comp/Target/Scheme.kind
View File

@ -87,7 +87,7 @@ Kind.Comp.Target.Scheme.program(main: String, defs: String): String
Kind.Comp.Target.Scheme.select(term: String, cse_body_list: List<Pair<String, String>>): String
let cses = ""
for cse_body in cse_body_list with cses:
{cse, body} = cse_body
let {cse, body} = cse_body
cses|" ("|cse|" "|body|")"
"(case "|term|cses|")"