Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Pattern matching in lambda added

Browse source
This commit is contained in:
sebastianselander 2023-05-05 16:58:11 +02:00
parent 322286d898
commit dead9eb75a
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Grammar.cf
View file

@ -65,7 +65,8 @@ internal EVar. Exp4 ::= LIdent;
EApp. Exp3 ::= Exp3 Exp4; EApp. Exp3 ::= Exp3 Exp4;
EAdd. Exp2 ::= Exp2 "+" Exp3; EAdd. Exp2 ::= Exp2 "+" Exp3;
ELet. Exp1 ::= "let" Bind "in" Exp1; ELet. Exp1 ::= "let" Bind "in" Exp1;
EAbs. Exp1 ::= "\\" LIdent "." Exp1; EAbsS. Exp1 ::= "\\" Pattern "." Exp1;
internal EAbs. Exp1 ::= "\\" LIdent "." Exp1;
ECase. Exp1 ::= "case" Exp "of" "{" [Branch] "}"; ECase. Exp1 ::= "case" Exp "of" "{" [Branch] "}";
EAnn. Exp ::= Exp1 ":" Type; EAnn. Exp ::= Exp1 ":" Type;

1
src/Desugar/Desugar.hs
View file

@ -65,6 +65,7 @@ desugarExp = \case
EApp e1 e2 -> EApp (desugarExp e1) (desugarExp e2) EApp e1 e2 -> EApp (desugarExp e1) (desugarExp e2)
EAdd e1 e2 -> EAdd (desugarExp e1) (desugarExp e2) EAdd e1 e2 -> EAdd (desugarExp e1) (desugarExp e2)
EAbs i e -> EAbs i (desugarExp e) EAbs i e -> EAbs i (desugarExp e)
EAbsS pat e -> EAbs (LIdent "$zz$") (ECase (EVar "$zz$") [Branch (desugarPattern pat) (desugarExp e)])
ELet b e -> ELet (desugarBind b) (desugarExp e) ELet b e -> ELet (desugarBind b) (desugarExp e)
ECase e br -> ECase (desugarExp e) (map desugarBranch br) ECase e br -> ECase (desugarExp e) (map desugarBranch br)
EAnn e t -> EAnn (desugarExp e) t EAnn e t -> EAnn (desugarExp e) t