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

Fix lambda lifter

Browse source
This commit is contained in:
Martin Fredin 2023-03-28 14:36:43 +02:00
parent 528369c95c
commit 133cc31e77
3 changed files with 42 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

4
sample-programs/basic-0
View file

@ -5,7 +5,7 @@ data forall a. List (a) where {
length : forall c. List (c) -> Int;
length = \list. case list of {
Nil => 0;
Cons x xs => 1 + length xs;
Cons x (Cons y Nil) => 2;
-- Nil => 0;
-- Cons x (Cons y Nil) => 2;
};

8
sample-programs/basic-6.crf
View file

@ -3,8 +3,8 @@ data Bool () where {
False : Bool ()
};
main : Bool () -> Int ;
main : Bool () -> a -> Int ;
main b = case b of {
False => 0;
True => 0
}
False => (\x. 1);
True => \x. 0;
};